﻿Public Class Inf_bajoPesoAlnacer
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            FG.culturaPaginas()
        End If
    End Sub

    Private Sub Muestra_tasaAnivelPais()
        Dim Rs As ADODB.Recordset
        Dim param(0) As ADODB.Parameter

        'seteo el ccontrol 
        P_nivelPais.Visible = False



        param(0) = New ADODB.Parameter
        param(0).Name = "@Anio"
        param(0).Type = ADODB.DataTypeEnum.adVarChar
        param(0).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(0).Value = cboAnioGraf.Text
        param(0).Size = 10


        Rs = Datos.TraerTodos("INFOME_BajoPEsoALNAcEr_x_NivelPAis_x_ANiO", param, "Muestra_ProvinciasCnPorcentajeDeBajoPeso-inf_bajo peso")

        If Rs.RecordCount = 0 Then
            Exit Sub
        End If

        'pongo visivle el control
        P_nivelPais.Visible = True


        img_nivelPais.ImageUrl = (FG.DevuelveUrlGoogle_chart_Torta(Rs, TipoGraficoTortaGoogle.TRes_D, 590, 260, "Tasa de bajo peso al nacer-nivel pais", Drawing.Color.Blue))



    End Sub

    Private Sub Muestra_ProvinciasCnPorcentajeDeBajoPeso()
        Dim Rs As ADODB.Recordset
        Dim param(0) As ADODB.Parameter

        'seteo el ccontrol 
        Chart1.DataBind()



        param(0) = New ADODB.Parameter
        param(0).Name = "@Anio"
        param(0).Type = ADODB.DataTypeEnum.adVarChar
        param(0).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(0).Value = cboAnioGraf.Text
        param(0).Size = 10


        Rs = Datos.TraerTodos("INFOME_BajoPEsoALNAcEr_x_Prov_x_ANiO", param, "Muestra_ProvinciasCnPorcentajeDeBajoPeso-inf_bajo peso")

        If Rs.RecordCount = 0 Then
            Exit Sub
        End If

        FG.CargaControlChart_asp(Rs, Chart1, "Indice de provincias con bajo peso al nacer", DataVisualization.Charting.SeriesChartType.Bar, False, DataVisualization.Charting.AreaAlignmentOrientations.Vertical, Drawing.Color.Blue, , , 500, 500, 100, , , , , 100)



    End Sub

    Protected Sub btnAnioGraf_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnAnioGraf.Click

        FG.SacaCartelDeAViso(LblMsje)


        Muestra_ProvinciasCnPorcentajeDeBajoPeso()
        Muestra_tasaAnivelPais()


        If P_nivelPais.Visible = False Then
            FG.MuestraCartel("No hay datos", LblMsje)
        End If


    End Sub
End Class